RECOUP II USERS' PROGRAM NO. 1005 



PROGRAM TITLE: 



AFiT 021 mmm ii^put prom typewriter or 

CONTROL CONSOLE 



program CLASSIFICATION: Subroutine 



AUTHOR: 



PURPOSE: 



DATE: 



Professor Marling 
Institute of Technology 
Air University 
United States Air Force 
Wright-Patterson AFB, Ohio 

To input a number to any location in memory » either in 
Fixed or Floating Form. Trapping mode commands -64^-^.0; 
-65 UJ,0 and -66 LiJ»0 are used, where dJ is a four digit octal 
address at which the number is to be stored* 

November 1959 



Published by 

RECOMP Users' Library 

at 

AUTONETICS INDUSTRIAL PRODUCTS 

A DIVISION OF NORTH AMERICiUU AVIATION, INC. 
3584 Wilshire Blvd., Los Angeles 5, Calif. 



IRMBiaR JSPUS FRCM !nFIHRITIR Trot. Barling 

AFTS 021 OR OmmSL CQRSQIX noroiser 19^9 

+ 00 0673 + oif 0775 

PURP06I: To input a niiiiber to any location in meaoxy, either in Fiasd or 
Floating Form. Trapping node coonands -6^ ^>•0; •*6^ (jl).0 and 
"66 (/) .0 are used^ where tl) is a fonr digit octal address at 
which the nisflser is to be stored. 

CGMMAHD - 6k.\X),0 Fixed Decioial to Floating Binary I^spot. 

When the connand -64 ^ .0 is encountered, the nachine irlll stcyp 
at location 067^ .0*, waiting for a midber to he entered from the 
typewriter. TSype the nxsiiber in the fom 

. /integer \ /Deciaall /Fractiom . *^». 1 ^ v 
Bigo) Digits or Ipoint / Digits I (or | (s) 
Izero / \ / W Zero/ » "*"» ' ^ 




The siibrontine will retinm to the main prograa at the 
next following the negative conmand "O^i on exit, the niai>er 
is present in floating binary fozm in the A and R registers, 
and also at locations Ia^ , oJ -^ 1. 

COMfAHD - 63 (jD.O; Floating Decimal to Floating Binary Ihpiit. 

When the comiDand -6^ b^,0 is encountered, the machine will stop 
at location 07^1.0^ waiting for a nuBber to be entered in float- 
ing decimal form. For example, 15^.73 will be entered as 
-I- .15673 X 105. 

T^pe the nxmiber in the form 






/Declma]] . /TftB 

(Sign) Point I (Digits) [ or 



The machine will stop at 071^2.0^ waiting for the ten's eigponent. 
T^pe 



(sign) (Digits) /^Decimal") (s ) 
\ Point / 



Point 

Xxit from the sidbrontine is to the command next following tte 
negative command «65 60 .0; on exit, the n\ai>er is present lA 
floating binary form in the A and R registers, and also in loca- 
tions /x) fid + 1» 

IS 



COHMAUD • 66 ^•0: Flaced Decimal to Fixed Binary Input. 

When the coomand "66 U) .o is encountered^ the machine vill stop 
at location O713.O* vaiting for a nwiber to be entered in 
mixed decimal form* O^pe 



H \ / Integer \ / Beciaal) ^FractloA 
or (Slgnj Digits oij 1 Pblnt I Digits 
, / ^Zero J \ I \ or Zero / 



/Deciaalj ^Fraetlo^ /TAB 

or 
CR 



. /Binary Scale at^ 

^Signj I vhieh number is 
yto be Altered 



/Decimal 
IPoint 



) 



(s) 



llxe binary scsde must be irlthin the range -39 < scale < ••- 39 

There is no error return; if the nxsiber irlll not hold at the 
scale specified, its most significant digits will be lost« 

Ixit from the subroutine is to the consaad next foUoiring the 
negatiTe command "66 U3 .0; on exit, the nuA>er is present in 
the A register and also in location 60* 

Botes. (1) The routine is relocatable; if its location is ehan^psd, the 
addresses marked above with am asterisk vill be changed 
correspondingly. 

(2) If it Is preferred to enter the sniber ttam. the control console 
rather then the t y pe w riter^ the only changes needed are: 

(a) When the machine stops, press FUZi SOIIRCI bvtton on the control 
console. 

(b) Use IQS'IXK button in place of SAB or CR« 

(3) liocatlcai occupied O673 - 0773, plus fourlcey voxfts ^Xfr{\ - 0777 

0000 

i 676^ • 676^ \ straying Node Entry* 
7000 - 7012 

Hxnsed location, 07IO. 



2<& 



0000 ♦fSTOisofSTT^^ioo 
0000 *fi570i20f5no<M 




707110 



I 44l00Q0Ofte776|O 




t77ioq 



T3IO¥(AoTt3^ 



0673 <fp0O0OpO«O0OQ00O 

4 ♦fe070Jioi-71 06750 




Of^OOOOO 

77650fi»oooooo 

100TOf5770111 



7 -►6IM)70004-577I< 
0700 -•'300672OIO0MJ 

2 

I 

5 43§oooooi^ttoni 

•f3500000f 57701 11 

oo5i 

oof4207330 
toooooo 

i -f 1000000-0000000 



071 



i1: 




073' 



07- 



1 
2 

1 

2 

I 

0750 

1 
2 

J 




+602 '631+37701I 

40000000-0000470 

+0000000-0000000 

+0000000-0000470 
+!^07730i42077lO 



07 




077 



I 
1 
2 

\ 



+0000000*0000001 
+0000Q00«Q000QQ1 
+010767044607660 

+6Jnooiaf66oi 

+35(oo?o+577Qiii 
+141 31 00-0616001 
+620o4to-0200i7i 
+0377400-0000061 
+0017210+2000001 



L77360 
s 






-f J ^. 



.: /. •■/•• 



■■•y:' - ^ -^' ''//i (9 



3<s. 



EBCOMP II USERS* PROGEAM HO, 1005 
APPENDIX I 
OPERATING INSTRUCTIONS 
PROGRAM TITLE: APIT 021 NUMBER INPUT FROM TYPEWRITER OR CONTROL CONSOLE 

This routine is a relocatable one; becaxise we use the same plan for all relocatable 
routines 9 we do not, for oxlr own purposes, include instructions for the use of a 
relocatable tape on every write-up. For external use, perhaps, such instructions should 
be included* They are given on our write-up of AFIT 015 '*Relocator, ** as applied to 
AFIT 021, they are as follows: 

1* Put the tape in the photoreader and press the photoreader FILL button* 
The tape stops after reading in about half way* It has merely read in the relo- 
cation routine at 7710-7757 » and the display panel shows the word 

+ 00 0673 + 04 0773 

wnich indicates that if read in directly (i.e., without relocation) then AFIT 021 
will occupy memory from 0673 to 0773 > inclusive, plus four key words at 0774 - 0777* 

2* If this location is satisfactory, press the START button on the CONSOLE* 
AFIT 021 will enter to 0673 to 0773 as the rest of the tape passes through the 
photoreader* 

3* If the memory region shown on the display panel is not satisfactozy, then 

a* Press CLEAR on the console 

b. Press C on the console 

c* Enter a command word 

+ 00 (x X X x)0 ± 00 00000 

where x x x x is a four-digit-octal-address, congruent with 0673 
(i.e., having 3 as its fourth digit) at which it is desired that the 
relocated AFIT 021 should commence* 

d* Press START on the console* The rest of the tape will re£id in the 

routine, will then be relocated, and the new memory locations occupied 
will be shown on the display panel* 



Bl 



